From: Stefan Monnier Date: Tue, 1 Dec 2009 20:08:20 +0000 (+0000) Subject: (vc-print-log-internal): Don't wait for the prcess to X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~9140 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=d20cd8d863b16a0e86569e4814b54bda52ff0747;p=emacs.git (vc-print-log-internal): Don't wait for the prcess to terminate before setting up the major mode. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 83b80072381..b59cfde463b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2009-12-01 Stefan Monnier + * vc.el (vc-print-log-internal): Don't wait for the prcess to + terminate before setting up the major mode. + * pcmpl-unix.el (pcomplete/cd): Complete more than one argument, just in case. diff --git a/lisp/vc.el b/lisp/vc.el index a866431a57b..616b9a34dea 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -1878,13 +1878,15 @@ Not all VC backends support short logs!") (setq pl-return (vc-call-backend backend 'print-log files "*vc-change-log*" vc-short-log limit)) (pop-to-buffer "*vc-change-log*") - (vc-exec-after - `(let ((inhibit-read-only t) - (vc-short-log ,vc-short-log)) - (vc-call-backend ',backend 'log-view-mode) - (set (make-local-variable 'log-view-vc-backend) ',backend) - (set (make-local-variable 'log-view-vc-fileset) ',files) + (let ((inhibit-read-only t)) + ;; log-view-mode used to be called with inhibit-read-only bound + ;; to t, so let's keep doing it, just in case. + (vc-call-backend backend 'log-view-mode)) + (set (make-local-variable 'log-view-vc-backend) ',backend) + (set (make-local-variable 'log-view-vc-fileset) ',files) + (vc-exec-after + `(let ((inhibit-read-only t)) (when (and ,limit (not (eq 'limit-unsupported pl-return))) (goto-char (point-max)) (widget-create 'push-button